1. Napisati program Mat1 kojim se za unetu matricu A(NxN) izračunava suma kvadrata svih elemenata matrice. Izračunavanje realizovati funkcijom SumKvMat. 

2. Napisati program Mat2 kojim se za unetu matricu A(NxN) izračunava suma negativnih elemenata matrice. Izračunavanje realizovati funkcijom SumNegMat.

3. Napisati program Mat3 kojim se za unetu matricu A(NxN) izračunava suma pozitivnih elemenata iznad glavne dijagonale. Izračunavanje realizovati funkcijom SumPozIznGLDiag.

4. Napisati program Mat4 kojim se za unetu matricu A(NxN) izračunava suma elemenata sa glavne dijagonale matrice. Izračunavanje realizovati funkcijom SumGLDiag.

5. Napisati program Mat5 kojim se za unetu matricu A(NxN) izračunava suma elemenata na sporednoj dijagonali matrice. Izračunavanje realizovati funkcijom SumSpDiag.

6. Napisati program Mat6 kojim se za unetu matricu A(NxN) izračunava vrednost najvećeg elementa na sporednoj dijagonali matrice. Izračunavanje realizovati funkcijom MaxSpDiag.

7. Napisati program Mat7 kojim se za unetu matricu A(NxN) izračunava proizvod negativnih elemenata iznad sporedne dijagonale matrice. Izračunavanje realizovati funkcijom PrNegIznSpDiag.

8. Napisati program Mat8 kojim se za unetu matricu A(NxN) izračunava suma svih pozitivnih elemenata matrice koji su deljivi sa 3. Izračunavanje realizovati funkcijom SumPozDelj3.

9. Napisati program Mat9 kojim se za unetu matricu A(NxN) izračunava kvadrat maksimalnog elementa matrice. Izračunavanje realizovati funkcijom KvMaxMat.

10. Napisati program Mat10 kojim se za unetu matricu A(NxN) izračunava suma svih parnih elemenata sa sporedne dijagonale matrice. Izračunavanje realizovati funkcijom SumParSpDiag.



Program Mat8;
type Mat=array [1..100,1..100] of integer; {zbog provere deljivosti mora integer}
var A:Mat; i,j,n:integer; s:real;

function SumPozDelj3 (var A:Mat; n:integer):real;
Var i,j:integer; S:real;
Begin
S:=0.0;
for i:=1 to n do
 for j:=1 to n do
  if (A[i,j]>0) and ((A[i,j] mod 3) = 0 )
   then s:=s+A[i,j];
SumPozDelj3:=s;
End;

BEGIN
readln (n);
for i:=1 to n do
 for j:=1 to n do readln(A[i,j]);
s:=SumPozDelj3(A,n);
writeln (s);
END.



Program Mat9;
type Mat=array [1..100,1..100] of real;
var A:Mat; i,j,n:integer; s:real;

function KvMaxMat (var A:Mat; n:integer):real;
Var i,j:integer; max:real;
Begin
max:=A[i,j];
for i:=1 to n do
 for j:=1 to n do
  if (A[i,j]>max) then max:=A[i,j];
KvMaxMat:=sqr(max);
End;

BEGIN
readln (n);
for i:=1 to n do
 for j:=1 to n do readln(A[i,j]);
s:=KvMaxMat(A,n);
writeln (s);
END.


Program Mat10;
type Mat=array [1..100,1..100] of integer; {zbog provere deljivosti mora integer}
var A:Mat; i,j,n:integer; s:real;

function SumParSpDiag (var A:Mat; n:integer):real;
Var i,j:integer; s:real;
Begin
s:=0.0;
for i:=1 to n do
 for j:=1 to n do
  if (i+j=n+1) and ((A[i,j] mod 2) = 0) then s:=s+A[i,j];
SumParSpDiag:=s;
End;

BEGIN
readln (n);
for i:=1 to n do
 for j:=1 to n do readln(A[i,j]);
s:=SumParSpDiag(A,n);
writeln (s);
END.